home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 63 / 063.d81 / source checkbook (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  12.3 KB  |  351 lines
  1. 100 rem@ e3520
  2. 110 poke53281,0:poke53280,0:print"[147][211]etting up..."
  3. 120 clr:ifpeek(653)thenload"ec.help screens",8,128
  4. 130 ifpeek(653)thenload"ec.font",8,128:poke787,0
  5. 140 poke53280,11
  6. 150 ifpeek(653)then150:rem snapshot here
  7. 160 dim a$(4,200),mu$(12),c(8),x(4),y(4),li(4),em$(4),mo$(14),c$(1),a%(200)
  8. 170 dimsn(4):c$(0)="[155]":c$(1)="[152]":open15,8,15:rn=1:gosub3140:l=1:poke650,128
  9. 180 fori=0to11:readmu$(i):next:readc(1),c(2),c(3),c(4),c(5),c(6),c(7),c(0)
  10. 190 fori=0to4:readx(i),y(i),li(i):next:fori=1to14:readmo$(i):next
  11. 200 ln$="----------------------------------------":ln$=ln$+ln$
  12. 210 fori=0to4:reada$(i,0):next
  13. 220 tc$="10101010101":x$=chr$(13):mo$(0)="[196]ecember"
  14. 230 bo$="[158]                                  "
  15. 240 bo$=bo$+"                                  [145][145]"
  16. 250 print"[147]"
  17. 260 sp$="                                       ":rb$="0.00":b$=rb$:bb$=rb$
  18. 270 poke53281,0:poke53280,11
  19. 280 gosub310
  20. 290 onlgosub900,1920,2800,2650,2900,3070,3140,3160,3240,3470,1530,3320
  21. 300 goto280
  22. 310 ifpeek(2023)<>95thengosub770
  23. 320 ifpeek(1110)<>197thengosub860
  24. 330 print""spc(5);" [197] [193] [211] [217] [160] [195] [200] [197][160][195] [203] [194] [207] [207] [203]  ":ifl<1orl>12thenl=1
  25. 340 gosub1640
  26. 350 poke214,19:print:print" [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185] "
  27. 360 print"  [158]                                   [146] "
  28. 370 print"  [158]                                   [146] "
  29. 380 print" [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184] "
  30. 390 m1$="[195][210][211][210]/[210][197][212][213][210][206] to select":m2$="[195][212][210][204]-[200] to help":gosub830
  31. 400 print"";:tc=0:fori=0to11:tc=nottc:printspc(5)""c$(-tc)mu$(i):next
  32. 410 poke198,0
  33. 420 geta$:gosub740:ifa$<>"[145]"anda$<>""anda$<>chr$(13)anda$<>""anda$<>"?"then420
  34. 430 ifa$=chr$(13)thenct=1:gosub750:return
  35. 440 ifa$=""thenl=12:return
  36. 450 ifa$="?"thenm1$="[198]ree memory "+str$(fre(0)):m2$="[208]ress a key...":gosub830
  37. 460 ifa$="?"thenpoke198,0:wait198,1:geta$:goto310
  38. 470 poke214,3+l:poke211,5:sys58732:print""c$(val(mid$(tc$,l,1)))mu$(l)
  39. 480 ifa$=""thenl=l+1:ifl>11thenl=1
  40. 490 ifa$="[145]"thenl=l-1:ifl<1thenl=11
  41. 500 poke214,3+l:poke211,5:sys58732:print""mu$(l):ct=7:goto420
  42. 510 rem data table
  43. 520 data"[155]                              "
  44. 530 data" [195]reate/[213]pdate [195]heckbook      "
  45. 540 data" [204]ist [195]hecks ([211]creen/[208]rinter) "
  46. 550 data" [204]oad a file                  "
  47. 560 data" [211]ave this file               "
  48. 570 data" [211]end disk command            "
  49. 580 data" [211]ort checks for listing      "
  50. 590 data" [210]estore sorted checks        "
  51. 600 data" [211]ee deposits                 "
  52. 610 data" [212]otals of checks/deposits    "
  53. 620 data" [210]eset [208]rogram                "
  54. 630 data" [210]eturn to [204]oadstar           "
  55. 640 rem color data
  56. 650 data1,15,12,11,12,15,1,7
  57. 660 rem prompt positions on screen in t         the order: x, y, length
  58. 670 data10,2,8,29,2,5,5,7,18,22,9,9,5,13,18
  59. 680 rem menu glow bar
  60. 690 rem month names
  61. 700 data"[202]anuary","[198]ebruary","[205]arch","[193]pril","[205]ay","[202]une","[202]uly","[193]ugust"
  62. 710 data"[211]eptember","[207]ctober","[206]ovember","[196]ecember","[193]bort","[206]o file"
  63. 720 rem field names
  64. 730 data"[196]ate","[195]heck","[208]ayee","[193]mount","[208]urpose"
  65. 740 ct=ct+.2:ifct>7thenct=1
  66. 750 poke646,c(ct):poke214,3+l:poke211,5:sys58732:print""mu$(l):return
  67. 760 rem background pattern
  68. 770 print"";
  69. 780 fori=1to83:print"[159][169][169][223][223][159][169][169][223][223][159][169][169][223][223]";:next:print""
  70. 790 fori=8to11:poke2012+i,peek(2012-40+i):poke56284+i,peek(56284-40+i):next
  71. 800 rem clear line links
  72. 810 fori=217to242:pokei,peek(i)or128:next:return
  73. 820 rem print message
  74. 830 printbo$spc(20-len(m1$)/2)m1$
  75. 840 print""spc(20-len(m2$)/2)m2$"":m1$="":m2$="":return
  76. 850 rem print box
  77. 860 print"[158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":fori=1to13
  78. 870 printspc(4)"[221]                              [221]":next
  79. 880 printspc(4)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":return
  80. 890 rem enter checks/deposits
  81. 900 gosub860:m1$="[198]1 next  [198]2 previous  ^ exit."
  82. 910 m2$="[198]4 first  [198]3 last [195][210][211][210]/[210][197][212] select":gosub830
  83. 920 print"[159][196]ate:           [195]heck #:      "
  84. 930 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  85. 940 print"[208]ay to the order of:"
  86. 950 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  87. 960 printspc(13)"[193]mount: $            "
  88. 970 printspc(21)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  89. 980 print"[195]omment:"
  90. 990 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][158]"
  91. 1000 fori=0to4:poke211,x(i):poke214,y(i):sys58732:printa$(i,rn):next
  92. 1010 print"":it=0
  93. 1020 rem loop to enter check data
  94. 1030 h=it:forit=0to4:ifa$(it,rn)=""thena$(it,rn)=left$(sp$,li(it))
  95. 1040 ct=0:gosub1360:next:it=h
  96. 1050 geta$:poke199,1:gosub1350:ifa$=""then1050
  97. 1060 ifa$="^"thenreturn
  98. 1070 ifa$=""ora$=""thenct=0:gosub1360:it=it+1:ifit>4thenit=0
  99. 1080 ifa$="[157]"ora$="[145]"thenct=0:gosub1360:it=it-1:ifit<0thenit=4
  100. 1090 ifrn=200then1110
  101. 1100 ifa$="[133]"thenifrn<max+1thenit=it-1:gosub1810:rn=rn+1:gosub1640:goto1030
  102. 1110 ifa$="[134]"thenrn=max:it=it-1:gosub1810:gosub1640:goto1030
  103. 1120 ifa$="[138]"thenrn=1:it=it-1:gosub1810:gosub1640:goto1030
  104. 1130 ifa$="[137]"thenifrn>1thengosub1810:rn=rn-1:gosub1640:goto1030
  105. 1140 ifa$="[135]"thengosub3280:goto900
  106. 1150 ifval(a$(3,rn))thenifrn>maxthenmax=rn:gosub1640
  107. 1160 ifa$=""ora$="[157]"ora$="[145]"ora$=""ora$="[133]"ora$="[137]"ora$="[135]"then1050
  108. 1170 ifa$<>chr$(13)thenpoke631,asc(a$):poke198,1
  109. 1180 gosub1320:poke214,y(it):poke211,x(it):sys58732:poke646,1
  110. 1190 li=li(it):gosub1390:ifw$<>""thena$(it,rn)=w$
  111. 1200 ifw$=""then1280
  112. 1210 ifval(a$(3,rn))thenifrn>maxthenmax=rn:gosub1640
  113. 1220 ifrnthenifa$(1,rn)="0"thengosub3540:a$(1,rn)=mid$(str$(val(a$(1,bc))+1),2)
  114. 1230 ifrnthenifit<>1thenifa$(it,rn)="0"thena$(it,rn)=a$(it,rn-1)
  115. 1240 ifa$(2,rn)="d"ora$(2,rn)="deposit"ora$(2,rn)="[196]eposit"thena$(2,rn)="[196][197][208][207][211][201][212]
  116. 1250 [139]a$(2,rn)[178]"r"[176]a$(2,rn)[178]"reconciliation"[167]a$(2,rn)[178]"(NULL)vallen(NULL)(NULL)lenright$(NULL)right$atn(NULL)right$(NULL)(NULL)"
  117. 1260 [139]a$(2,rn)[178]"v"[176]a$(2,rn)[178]"void"[176]a$(2,rn)[178]"(NULL)oid"[167]a$(2,rn)[178]"(NULL)(NULL)right$str$"
  118. 1270 [139]it[178]3[167]a$[178]a$(3,rn):[141]1840:a$(3,rn)[178]a$
  119. 1280 ct[178]0:[141]1360:it[178]it[170]1
  120. 1290 [139]it[177]4[167]it[178]0:[139][197](a$(3,rn))[167][151]631,[198]("input"):[151]198,1
  121. 1300 [137]1050
  122. 1310 [143] clear out field before typing           over
  123. 1320 [151]214,y(it):[151]211,x(it):[158]58732:[153][200](sp$,li(it))
  124. 1330 [142]
  125. 1340 [143] make fields glow
  126. 1350 ct[178]ct[170].2:[139]ct[177]7[167]ct[178]1
  127. 1360 [151]646,c(ct):[151]214,y(it):[151]211,x(it):[158]58732
  128. 1370 [153]a$(it,rn)[200](sp$,[182](li(it)[171][195](a$(it,rn)))):[142]
  129. 1380 [143] get word routine
  130. 1390 [139]gx[167][151]214,gy:[151]211,gx:[158]58732
  131. 1400 w$[178]"":lw[178]0:[153]">waitcmd";:[139]limit[178]0[167]limit[178]10
  132. 1410 [161]a$:[139]a$[178]""[176]a$[178]"load"[176]a$[178]""[167]1410
  133. 1420 [139]a$[178]"on"[176]a$[178]""[176]a$[178]"cmd"[176]a$[178]""[176]a$[178]","[176]a$[178]";"[176]a$[178]":"[167]1410
  134. 1430 as[178][198](a$):[139]as[178]13[176]as[178]141[176]as[178]20[167]1490
  135. 1440 [139][194](653)[178]2[176][194](653)[178]4[176]as[178]148[167]1410
  136. 1450 [139]lw[178]limit [175](as[179][177]20[175]as[179][177]13[175]as[179][177]141)[167]1410
  137. 1460 [139]as[178]34[176](as[177][178]133[175]as[179][178]140)[176](as[177][178]1[175]as[179][178]31)[167]1410
  138. 1470 [139]it[173]2[179][177][181](it[173]2)[167][139]a$[179]"-"[176]a$[177]"9"[167]1410
  139. 1480 w$[178]w$[170]a$:[153]a$">waitcmd";:lw[178][195](w$):[137]1410
  140. 1490 lw[178][195](w$):[139]as[178]20[175]w$[179][177]""[167]w$[178][200](w$,lw[171]1):[153]"cmd<wait cmdcmd";:[137]1410
  141. 1500 [139]as[178]20[175]w$[178]""[167]1410
  142. 1510 [139]as[178]13[167][153]" ";:lw[178][195](w$):li[178]0:gy[178]0:gx[178]0:[142]
  143. 1520 [143] return to loadstar
  144. 1530 [139]max[178]0[167]1560
  145. 1540 m1$[178]"atnre you sure? ((NULL)/(NULL))":m2$[178]"left$ave you (NULL)atn(NULL)valstr$ this file?":[141]830
  146. 1550 [151]198,0:[146]198,1:[161]a$:[139]a$[179][177]"y"[167]l[178]4:[142]
  147. 1560 [152]15,"r0:hello connect=hello connect":[132]15,er:[160]15
  148. 1570 [139] er[179][177]63 [167] [153]"load":[128]
  149. 1580 a$[178]"hello connect":q$[178][199](34):[153]"load":[151]646,[194](53281)
  150. 1590 [153]"load"q$a$q$",8"
  151. 1600 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  152. 1610 [143] dummy line
  153. 1620 [142]
  154. 1630 [143] show information in white box
  155. 1640 [151]214,17:[151]211,1:[158]58732:[139]max[178]0[167]mo[178]14
  156. 1650 [129]i[178]1[164]2:[153]"                                      ";:[130]
  157. 1660 [153]:[153]"onononlenhecks in memory:"max" (NULL)ecord no."rn" "
  158. 1670 [153]"(NULL)onth: "mo$(mo)[163]19)"(NULL)rev: $"bb$
  159. 1680 [142]
  160. 1690 [143] calculate balance
  161. 1700 [139]max[178]0[167][142]
  162. 1710 b[178]pb:tc[178]0:de[178]0:[129]i[178]0[164]max:neg[178]1
  163. 1720 [139]a$(2,i)[178]"str$val(NULL)(NULL)(NULL)right$(NULL)"[167]neg[178][171]1
  164. 1730 [139]a$(2,i)[178]"(NULL)(NULL)right$str$"[167]neg[178]0
  165. 1740 [139]a$(2,i)[178]"(NULL)vallen(NULL)(NULL)lenright$(NULL)right$atn(NULL)right$(NULL)(NULL)"[167]b[178][197](a$(3,i)):[137]1780
  166. 1750 b[178]b[171]neg[172][197](a$(3,i))
  167. 1760 [139]neg[178]1[167][139]a$(2,i)[179][177]"(NULL)vallen(NULL)(NULL)lenright$(NULL)right$atn(NULL)right$(NULL)(NULL)"[167]tc[178]tc[170][197](a$(3,i))
  168. 1770 [139]neg[179]1[167]de[178]de[170][197](a$(3,i))
  169. 1780 [139]i[178]rn[167]rb[178]b
  170. 1790 [130]:a$[178][196](b):[141]1840:b$[178]a$:[141]1640:ct$[178][196](tc):de$[178][196](de):[142]
  171. 1800 [143] wipe fields from screen
  172. 1810 [139]it[179]0[167]it[178]0
  173. 1820 h[178]it:[129]it[178]0[164]4:ct[178]8:[141]1360:[130]:it[178]h:ct[178]1:[142]
  174. 1830 [143] round a$ to nearest penny
  175. 1840 a$[178][196]([197](a$)):a$[178]a$[170]".00":a$[178][196]([181]([197](a$)[172]100[170].5)[173]100)
  176. 1850 [139]a$[178]" 0"[167]a$[178]" 0.00"
  177. 1860 [139][197](a$)[177].99[175][197](a$)[179]10.1[167][139][197](a$)[178][181]([197](a$))[167]1900
  178. 1870 [139][195](a$)[179]3[167]a$[178]a$[170]".00"
  179. 1880 [139][202](a$,[195](a$)[171]2,1)[178]"."[167][142]
  180. 1890 [139][202](a$,[195](a$)[171]1,1)[178]"."[167]a$[178]a$[170]"0":[142]
  181. 1900 a$[178]a$[170]".00":[142]
  182. 1910 [143] list records
  183. 1920 [139]max[178]0[167][142]
  184. 1930 m1$[178]"1. (NULL)ist checks to screen  "
  185. 1940 m2$[178]"2. (NULL)ist checks to printer ":[141]830:[151]198,0:[146]198,1:[161]a$
  186. 1950 [139]a$[179][177]"1"[175]a$[179][177]"2"[175]a$[179][177]"^"[167]1920
  187. 1960 [139]a$[178]"^"[167][142]
  188. 1970 po[178]3:[139]a$[178]"2"[167]po[178]4
  189. 1980 m1$[178]"1. (NULL)rint all    3. (NULL)rint checks >="
  190. 1990 m2$[178]"2. (NULL)rint range  4. (NULL)rint checks <="
  191. 2000 [141]830:[151]198,0:[146]198,1:[161]a$:[139](a$[179]"1"[176]a$[177]"4")[175]a$[179][177]"^"[167]1980
  192. 2010 [139]a$[178]"^"[167][142]
  193. 2020 mde[178][197](a$):[145]mde[137]2040,2330,2430,2480
  194. 2030 [143] begin printing
  195. 2040 [139]po[178]3[167][153]"loadopen";
  196. 2050 [159]3,po,7:rb[178]pb:[129]i[178]0[164]max:neg[178]1
  197. 2060 [139]a$(2,a%(i))[178]"str$val(NULL)(NULL)(NULL)right$(NULL)"[167]neg[178][171]1
  198. 2070 [139]a$(2,a%(i))[178]"(NULL)(NULL)right$str$"[167]neg[178]0
  199. 2080 [139]a$(2,a%(i))[178]"(NULL)vallen(NULL)(NULL)lenright$(NULL)right$atn(NULL)right$(NULL)(NULL)"[167]rb[178][197](a$(3,a%(i))):[137]2100
  200. 2090 rb[178]rb[171]neg[172][197](a$(3,a%(i)))
  201. 2100 rb$[178][196](rb):a$[178]rb$:[141]1840:rb$[178]a$:[139]i[178]0[167]rb$[178]"peekalance"
  202. 2110 [145]mde[137]2200,2120,2140,2160,2180
  203. 2120 [139][197](a$(1,a%(i)))[177][178]lr[175][197](a$(1,a%(i)))[179][178]hr[167]2200
  204. 2130 [137]2280
  205. 2140 [139][197](a$(3,a%(i)))[177][178]lb[167]2200
  206. 2150 [137]2280
  207. 2160 [139][197](a$(3,a%(i)))[179][178]ub[167]2200
  208. 2170 [137]2280
  209. 2180 [139]a$(2,a%(i))[178]"str$val(NULL)(NULL)(NULL)right$(NULL)"[167]2200
  210. 2190 [137]2280
  211. 2200 [139]po[178]3[167][151]199,1
  212. 2210 [152]3,a$(0,a%(i))[166]10[171][195](a$(0,a%(i))))a$(1,a%(i));
  213. 2220 [152]3,[166]7[171][195](a$(1,a%(i))))[166]8[171][195](a$(3,a%(i))))a$(3,a%(i));
  214. 2230 [152]3,[166]13[171][195](rb$))rb$[166]4);:[151]199,0
  215. 2240 [152]3,a$(2,a%(i))[166]20[171][195](a$(2,a%(i))));
  216. 2250 [152]3,a$(4,a%(i)):[139]po[178]3[167][153]
  217. 2260 [139]i[178]0[167][152]3,[200](ln$,40[170]40[172][181](po[173]4))
  218. 2270 [139][194](653)[167]2260
  219. 2280 [130]
  220. 2290 [152]3,[166]38[171][195](rb$))rb$x$:[160]3
  221. 2300 [139]po[178]3[167][151]198,0:[146]198,1
  222. 2310 [142]
  223. 2320 [143] input range data
  224. 2330 m1$[178]"valnter lowest check number in range"
  225. 2340 m2$[178]"wait                             ":[141]830:[151]214,22
  226. 2350 [151]211,4:[158]58732:it[178]1:li[178]li(it):[141]1390:[139][197](w$)[179]1[167][142]
  227. 2360 lr[178][197](w$)
  228. 2370 m1$[178]"valnter highest check # in range"
  229. 2380 m2$[178]"wait                             ":[141]830:[151]214,22
  230. 2390 [151]211,4:[158]58732:it[178]1:li[178]li(it):[141]1390:[139][197](w$)[179]1[167][142]
  231. 2400 [139][197](w$)[179]lr[167]2370
  232. 2410 hr[178][197](w$):[137]2040
  233. 2420 [143] enter data for check >=
  234. 2430 m1$[178]"valnter lower boundary below    "
  235. 2440 m2$[178]"wait                             ":[141]830:[151]214,22
  236. 2450 [151]211,4:[158]58732:it[178]1:li[178]li(it):[141]1390:[139][197](w$)[179].01[167][142]
  237. 2460 lb[178][197](w$):[137]2040
  238. 2470 [143] enter data for check <=
  239. 2480 m1$[178]"valnter upper boundary below:   "
  240. 2490 m2$[178]"wait                             ":[141]830:[151]214,22
  241. 2500 [151]211,4:[158]58732:it[178]1:li[178]li(it):[141]1390:[139][197](w$)[179].01[167][142]
  242. 2510 ub[178][197](w$):[137]2040
  243. 2520 [143] check the stupid error channel          a different way this time!
  244. 2530 em$[178]"":[132]15,e$(1),e$(2),e$(3),e$(4):[129]i[178]1[164]3:em$[178]em$[170]e$(i)[170]",":[130]
  245. 2540 em$[178]em$[170]e$(4):[142]
  246. 2550 [139]max[178]0[167][142]
  247. 2560 [143] select month
  248. 2570 [139]max[178]0[176]mo[178]0[176]mo[178]13[176]mo[178]14[167]mo[178]1
  249. 2580 m1$[178]"len(NULL)(NULL)(NULL)/(NULL)val(NULL)(NULL)(NULL)(NULL) to select month:":m2$[178]mo$(mo):[141]830
  250. 2590 [161]a$:[139]a$[179][177]""[175]a$[179][177]"cmd"[175]a$[179][177]"on"[175]a$[179][177]""[175]a$[179][177][199](13)[167]2590
  251. 2600 [139]a$[178]""[176]a$[178]""[167]mo[178]mo[170]1:[139]mo[177]13[167]mo[178]1
  252. 2610 [139]a$[178]"cmd"[176]a$[178]"on"[167]mo[178]mo[171]1:[139]mo[179]1[167]mo[178]13
  253. 2620 [139]a$[179][177][199](13)[167]2580
  254. 2630 [142]
  255. 2640 [143] save that baby
  256. 2650 [139]max[178]0[167][142]
  257. 2660 m1$[178]"mid$ust a second!":m2$[178]"lenalculating balance first...":[141]830:[141]1700
  258. 2670 [141]2570:[139]mo[178]13[167]mo[178]14:[142]
  259. 2680 m1$[178]"(NULL)aving "[170]mo$(mo)[170]" file...":m2$[178]"(NULL)lease wait...":[141]830
  260. 2690 [160]2:[159]2,8,2,"ec."[170]mo$(mo)[170]",s,w":[141]2530:[139]e$(2)[178]"ok"[167]2750
  261. 2700 [139]e$(2)[179][177]"file exists"[167]2740
  262. 2710 m1$[178]em$:m2$[178]"(NULL)eplace "[170]mo$(mo)[170]" file? ((NULL)/(NULL))":[141]830:[151]198,0:[146]198,1
  263. 2720 [161]a$:[139]a$[178]"n"[167][142]
  264. 2730 [152]15,"s0:ec."[170]mo$(mo):m1$[178]"valrasing old file...":[137]2680
  265. 2740 m1$[178]em$:m2$[178]"(NULL)ress a key...":[141]830:[151]198,0:[146]198,1:[161]a$:[142]
  266. 2750 [152]2,max;x$;b:[129]i[178]1[164]max
  267. 2760 [152]2,a$(0,i)x$a$(1,i)x$a$(2,i)x$a$(3,i)x$a$(4,i)
  268. 2770 [130]:[160]2:[141]2530:[139]e$(2)[179][177]"ok"[167]2740
  269. 2780 [142]
  270. 2790 [143] load that baby
  271. 2800 [141]2570:[139]mo[178]13[167]mo[178]14:[142]
  272. 2810 m1$[178]"(NULL)oading "[170]mo$(mo)[170]" file...":m2$[178]"(NULL)lease wait...":[141]830
  273. 2820 [160]2:[159]2,8,2,"ec."[170]mo$(mo)[170]",s,r"
  274. 2830 [141]2530:[139]e$(2)[179][177]"ok"[167]mo[178]13:[137]2740
  275. 2840 [132]2,max,b:[129]i[178]1[164]max
  276. 2850 [132]2,a$(0,i),a$(1,i),a$(2,i),a$(3,i),a$(4,i)
  277. 2860 [130]:[160]2:rn[178]1:[141]2530:[139]e$(2)[179][177]"ok"[167]2740
  278. 2870 [159]2,8,2,"ec."[170]mo$(mo[171]1)[170]",s,r":[141]2530:[132]2,p$,p$:[160]2:pb[178][197](p$)
  279. 2880 a$[178][196](pb):[141]1840:bb$[178]a$:[141]1640:[142]
  280. 2890 [143] send disk command
  281. 2900 m1$[178]"valnter your command below...":m2$[178]"wait                                "
  282. 2910 [141]830
  283. 2920 [151]214,22:[151]211,3:[158]58732:it[178]0:li[178]31:[141]1390:[139]w$[178]""[167]2950
  284. 2930 [139][200](w$,1)[178]"s"[176][200](w$,1)[178]"n"[167]2960
  285. 2940 [152]15,w$
  286. 2950 [141]2530:[137]2740
  287. 2960 m1$[178]"(NULL)his command can val(NULL)atn(NULL)val data.":m2$[178]"atnre you sure? ((NULL)/(NULL))"
  288. 2970 [141]830:[151]198,0:[146]198,1:[161]a$:[139]a$[178]"y"[167]m1$[178]w$:[141]830:[137]2940
  289. 2980 [142]
  290. 2990 [143] sort routine
  291. 3000 m1$[178]"(NULL)orting checks.":m2$[178]"(NULL)lease wait...":[141]830
  292. 3010 [129]i[178]1[164]max[171]1:[129]ii[178]i[170]1[164]max:[139]nf[178]2[167][141]3040:[137]3030
  293. 3020 [139][197](a$(nf,a%(ii)))[179][197](a$(nf,a%(i)))[167]h[178]a%(i):a%(i)[178]a%(ii):a%(ii)[178]h
  294. 3030 [151]53281,ii:[130]:[130]:[151]53281,0:l[178]2:[137]3050
  295. 3040 [139]a$(nf,a%(ii))[179]a$(nf,a%(i))[167]h[178]a%(i):a%(i)[178]a%(ii):a%(ii)[178]h
  296. 3050 [142]
  297. 3060 [143] sort checks
  298. 3070 [139]max[179]3[167][142]
  299. 3080 m1$[178]"1. peeky lenheck no.   2. peeky (NULL)ayee "
  300. 3090 m2$[178]"3. peeky atnmount      4. ascorget it":[141]830:[151]198,0:[146]198,1:[161]a$
  301. 3100 [139]a$[179][177]"^"[175](a$[177]"4"[176]a$[179]"1")[167]3080
  302. 3110 nf[178][197](a$):[139]nf[178]4[176]nf[178]0[167][142]
  303. 3120 [141]3000:[142]
  304. 3130 [143] restore order after sort
  305. 3140 [129]i[178]1[164]200:a%(i)[178]i:[130]:l[178]2:[142]
  306. 3150 [143] see deposits
  307. 3160 [139]max[178]0[167][142]
  308. 3170 m1$[178]"1. (NULL)ist deposits to screen  "
  309. 3180 m2$[178]"2. (NULL)ist deposits to printer ":[141]830:[151]198,0:[146]198,1:[161]a$
  310. 3190 [139]a$[179][177]"1"[175]a$[179][177]"2"[175]a$[179][177]"^"[167]3170
  311. 3200 [139]a$[178]"^"[167][142]
  312. 3210 po[178]3:[139]a$[178]"2"[167]po[178]4
  313. 3220 mde[178]5:[141]2040:[142]
  314. 3230 [143] show gross of all checks                written in this file
  315. 3240 m1$[178]"left$old on.  lenalculating total...":[141]830:[141]1700
  316. 3250 m1$[178]"chr$ross checks:"[170]ct$:m2$[178]"chr$ross deposits:"[170]de$:[141]830
  317. 3260 [151]198,0:[146]198,1:[161]a$:[142]
  318. 3270 [143] get balance from entry menu
  319. 3280 m1$[178]"left$old on.  lenalculating balance...":[141]830:[141]1700
  320. 3290 m1$[178]"(NULL)our balance is":m2$[178]b$[170]"  (NULL)ress a key":[141]830:[151]198,0:[146]198,1
  321. 3300 [161]a$:[142]
  322. 3310 [143] help screens
  323. 3320 l[178]1:a[178]0:[153]"stopload":[141]3430:[151]648,48:sm[178]49152:[151]53281,15:[151]53272,8
  324. 3330 [151]808,225
  325. 3340 [151]198,0:[146]198,1:[161]a$
  326. 3350 [139]a$[178]"^"[167][141]3410:[151]53281,0:[151]53272,23:[142]
  327. 3360 [139]a$[179][177]" "[167]3340
  328. 3370 sm[178]sm[170]1000
  329. 3380 [139]sm[177]52224[167]sm[178]49152:[151]53272,8:[151]648,48:[137]3340
  330. 3390 [151]53272,[194](53272)[170]16:[151]648,sm[173]1024:[137]3340
  331. 3400 [143] restore regular screen
  332. 3410 [151]808,237:a[178]3:[141]3430:[151]648,4:[142]
  333. 3420 [143] switch video banks
  334. 3430 [151]56578,[194](56578)[176]3
  335. 3440 [151]56576,([194](56576)[175]252)[176]a
  336. 3450 [142]
  337. 3460 [143] reset program
  338. 3470 [139]max[178]0[167][142]
  339. 3480 m1$[178]"atnre you sure? ((NULL)/(NULL))":m2$[178]"left$ave you (NULL)atn(NULL)valstr$ this file?":[141]830
  340. 3490 [151]198,0:[146]198,1:[161]a$:[139]a$[179][177]"y"[167]l[178]4:[142]
  341. 3500 [138]
  342. 3510 [143] error line (this line only              accessed by the compiler)
  343. 3520 [151]64,206:[151]198,0:[151]53281,0:[151]5380,11:mo[178]1:rn[178]1:[160]2:[160]3:[160]4
  344. 3530 [153]"":[160]15:[159]15,8,15:[141]3410:[137]270
  345. 3540 [143] find the last check
  346. 3550 bc[178]rn
  347. 3560 [139]bc[177]1[167]bc[178]bc[171]1
  348. 3570 aa$[178]a$(2,bc):[139]aa$[179][177]"str$val(NULL)(NULL)(NULL)right$(NULL)"[175]aa$[179][177]"(NULL)(NULL)right$str$"[175]aa$[179][177]"(NULL)vallen(NULL)(NULL)lenright$(NULL)atn(NULL)right$(NULL)right$(NULL)"[167][142]
  349. 3580 [139]bc[178]1[167][142]
  350. 3590 [137]3560
  351.